Quản lý phần mềm bán vé xe VB
8.398 lượt xem;
- Ket_noi.vb
- Library /
- PhanMemBanVeXe_Full /
- project /
1 Imports System.Data.SqlClient
2
3 Module Ket_noi
4 Public connect As SqlConnection
5
6 Public Sub Tao_ket_noi()
7 If connect Is Nothing Then
8 Dim chuoi_ket_noi As String = "Data Source=.\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=QuanLyBenXe"
9 connect = New SqlConnection(chuoi_ket_noi)
10 End If
11 End Sub
12
13 Public Function Doc_bang(ByVal lenh As String) As DataTable
14 Tao_ket_noi()
15 Dim bang As New Data.DataTable()
16 Dim bo_doc_ghi As New SqlDataAdapter(lenh, connect)
17 bo_doc_ghi.FillSchema(bang, SchemaType.Source)
18 bo_doc_ghi.Fill(bang)
19 Return bang
20 End Function
21
22
23 End Module
2
3 Module Ket_noi
4 Public connect As SqlConnection
5
6 Public Sub Tao_ket_noi()
7 If connect Is Nothing Then
8 Dim chuoi_ket_noi As String = "Data Source=.\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=QuanLyBenXe"
9 connect = New SqlConnection(chuoi_ket_noi)
10 End If
11 End Sub
12
13 Public Function Doc_bang(ByVal lenh As String) As DataTable
14 Tao_ket_noi()
15 Dim bang As New Data.DataTable()
16 Dim bo_doc_ghi As New SqlDataAdapter(lenh, connect)
17 bo_doc_ghi.FillSchema(bang, SchemaType.Source)
18 bo_doc_ghi.Fill(bang)
19 Return bang
20 End Function
21
22
23 End Module